0 A$="8601B7620B308C10BF620C308C11BF620E308C1AAF8C0639504C4143C5000080D6810125037E07F3308C0639504C4143C4143C5000080D6810125037E07F3308CF27E2B38BD34AD30018C002823038E0028108C00BF2304108E00BF34201F205454541F02BD32E835201F2086283DC34117308BBF605A39":CLS:SCREEN4,6,6:PRINT"Fonction PLACE"
1 PRINT"Copyright 1986 by Fabrice & HEBDOGICIEL":PRINT:COLOR,,1:PRINT"Adresse d'implantation :";:COLOR,,1:INPUT"&H",B$:B=VAL("&H"+B$):FORT=1TO97:POKEB+T-1,VAL("&H"+MID$(A$,T*2-1,2)):NEXT:EXECB:CLEAR,B-1:PRINT:PRINT"Routine implantee":BEEP